0 REM << CD36-9 >>
1 REM COMMODARES PROBLEM #32-3:
2 PRINT"[147]           ROUND ROBIN"
3 REM SOLUTION BY
4 REM     FRED RANSOM
5 REM
10 INPUT "NUMBER OF TEAMS";N
20 DIM T$(N)
30 FOR K=0 TO N-1
40 PRINT"TEAM NUMBER ";K+1;: INPUT T$(K)
50 NEXT K
55 IF (N AND 1) THEN N=N+1:T$(N-1)="---"
60 INPUT "TO (P)RINTER OR (S)CREEN [S]";FL$
70 DEV=3 : IF FL$="P" THEN DEV=4
80 OPEN 4,DEV
90 FOR J=1 TO N-1
100 FOR A=1 TO 3 : PRINT#4 : NEXT
110 PRINT#4,"ROUND ",J
120 PRINT#4,"HOME", "AWAY"
130 PRINT#4,"======", "======"
140 FOR K=0 TO (N/2-1)
150 IF (J AND 1)=1 THEN PRINT#4, T$(K), T$(K+N/2)
160 IF (J AND 1)=0 THEN PRINT#4, T$(K + N/2), T$(K)
170 NEXT K
180 A$=T$(1)
190 IF N < 3 THEN 240
200 FOR K=2 TO N-1
210 T$(K-1)=T$(K)
220 NEXT K
230 T$(N-1)=A$
240 NEXT J
250 CLOSE 4